( dos 3.3 )

( B header )
struct
  word% field dos33b>start
  word% field dos33b>length
end-struct dos33b%

: dos33-bsave ( start length segment -- )
  segment>data @ 
  rot dup t2,
  +
  swap dup t2,
  ts' ;

